home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 May / macformat-024.iso / Shareware in MacFormat / iq-test-anim / TEST / TEST .dxr / 00507.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  1.3 KB  |  74 lines
  1. on startMovie
  2.   global score
  3.   set score to 100
  4.   put score into field "scorebox"
  5.   set the soundEnabled to 1
  6.   set the volume of sound 1 to 220
  7.   set the volume of sound 2 to 220
  8. end
  9.  
  10. on BEGN
  11.   global pool, score
  12.   set score to 100
  13.   put score into field "scorebox"
  14.   set pool to "1 2 4 5 6 7 8 9 10 11"
  15.   set zip to random(10)
  16.   set zap to word zip of pool
  17.   repeat with i = 1 to 10
  18.     if zap = word i of pool then
  19.       delete word i of pool
  20.     end if
  21.   end repeat
  22.   set zippo to string(zap)
  23.   go(zippo)
  24. end
  25.  
  26. on TIMR
  27.   global score
  28.   set score to score - 1
  29.   put score into field "scorebox"
  30. end
  31.  
  32. on RITE
  33.   global score
  34.   set score to score + 20
  35.   put score into field "scorebox"
  36. end
  37.  
  38. on whoknows
  39.   global score
  40.   set score to score + 5
  41.   put score into field "scorebox"
  42. end
  43.  
  44. on MEDM
  45.   global score
  46.   set score to score - 1
  47.   put score into field "scorebox"
  48. end
  49.  
  50. on WRNG
  51.   global score
  52.   set score to score - 10
  53.   put score into field "scorebox"
  54. end
  55.  
  56. on qb
  57.   global pool, zip, numb, zap, zacount
  58.   set numb to 0
  59.   set numb to the number of words in pool
  60.   if numb = 1 then
  61.     go("congrat")
  62.   else
  63.     set zip to random(numb)
  64.     set zap to word zip of pool
  65.     repeat with i = 1 to numb
  66.       if zap = word i of pool then
  67.         delete word i of pool
  68.       end if
  69.     end repeat
  70.     set zippo to string(zap)
  71.     go(zippo)
  72.   end if
  73. end
  74.